00100	CLAR 0 7;
00200	P2 .15;
00300	P3 MOVE/3.5  C2,C3  C6,C7/ 3.5  C6,C7  C2,C3;
00400	P4 500; < BE CAREFUL FOR AMPLITUDE OVERFLOWS!
00500	P5 F1; P7 F4 SUBL;
00600	P6 DF 3   ;
00700	END;